home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS222.dsk / MICHAEL.ROW.THE.BOAT.ASHORE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  9KB  |  274 lines
  1. 5  REM  *************************
  2. 7  REM  *
  3. 9  REM  *  MICHAEL ROW THE BOAT ASHORE
  4. 11  REM  *
  5. 13  REM  * (C) COPYRIGHT JAN. 1987
  6. 15  REM  *
  7. 17  REM  *  PHIL SHAPIRO
  8. 19  REM  *
  9. 21  REM  ****************************
  10. 23  HOME : FOR D = 1 TO 1200: NEXT D
  11. 24  SPEED= 60
  12. 25  VTAB 8: HTAB 4: PRINT "MICHAEL  ROW  THE  BOAT  ASHORE"
  13. 27  FOR D = 1 TO 1000: NEXT D
  14. 29  VTAB 12: PRINT "PLEASE CHOOSE A SPEED OF DISPLAY:"
  15. 31  VTAB 14: PRINT "(TYPE IN ONE OF THE NUMBERS.)
  16. 33  VTAB 16: HTAB 20: PRINT "1. SLOW"
  17. 35  VTAB 18: HTAB 20: PRINT "2. MEDIUM"
  18. 37  VTAB 20: HTAB 20: PRINT "3. FAST"
  19. 39  VTAB 22: GET CH
  20. 41  IF CH = 1  THEN  SPEED= 40: HOME : FOR D = 1 TO 1200: NEXT D: GOTO 100
  21. 43  IF CH = 2  THEN  SPEED= 100: HOME : FOR D = 1 TO 1200: NEXT D: GOTO 100
  22. 45  IF CH = 3  THEN  SPEED= 180: HOME : FOR D = 1 TO 1200: NEXT D: GOTO 100
  23. 47  GOTO 39
  24. 100  HOME 
  25. 130  VTAB 2: PRINT "MI"
  26. 140  FOR D = 1 TO 10: NEXT D
  27. 150  VTAB 2: HTAB 3: PRINT "CHAEL"
  28. 160  FOR D = 1 TO 100: NEXT D
  29. 170  VTAB 2: HTAB 9: PRINT "ROW"
  30. 180  FOR D = 1 TO 500: NEXT D
  31. 190  VTAB 2: HTAB 13: PRINT "THE BOAT"
  32. 200  FOR D = 1 TO 60: NEXT D
  33. 210  VTAB 2: HTAB 22: PRINT "A"
  34. 220  FOR D = 1 TO 70: NEXT D
  35. 230  VTAB 2: HTAB 23: PRINT "SHORE,"
  36. 240  FOR D = 1 TO 750: NEXT D
  37. 250  VTAB 4: PRINT "HAL"
  38. 260  FOR D = 1 TO 300: NEXT D
  39. 270  VTAB 4: HTAB 4: PRINT "LE"
  40. 280  FOR D = 1 TO 100: NEXT D
  41. 290  VTAB 4: HTAB 6: PRINT "LU"
  42. 300  FOR D = 1 TO 1300: NEXT D
  43. 310  VTAB 4: HTAB 8: PRINT "YAH."
  44. 320  FOR D = 1 TO 650: NEXT D
  45. 330  VTAB 6: PRINT "MI"
  46. 340  FOR D = 1 TO 10: NEXT D
  47. 350  VTAB 6: HTAB 3: PRINT "CHAEL"
  48. 360  FOR D = 1 TO 80: NEXT D
  49. 370  VTAB 6: HTAB 9: PRINT "ROW"
  50. 380  FOR D = 1 TO 500: NEXT D
  51. 390  VTAB 6: HTAB 13: PRINT "THE BOAT"
  52. 400  FOR D = 1 TO 60: NEXT D
  53. 410  VTAB 6: HTAB 22: PRINT "A"
  54. 420  FOR D = 1 TO 70: NEXT D
  55. 430  VTAB 6: HTAB 23: PRINT "SHORE,"
  56. 440  FOR D = 1 TO 700: NEXT D
  57. 450  VTAB 8: PRINT "HAL"
  58. 460  FOR D = 1 TO 300: NEXT D
  59. 470  VTAB 8: HTAB 4: PRINT "LE"
  60. 480  FOR D = 1 TO 100: NEXT D
  61. 490  VTAB 8: HTAB 6: PRINT "LU"
  62. 500  FOR D = 1 TO 1700: NEXT D
  63. 510  VTAB 8: HTAB 8: PRINT "YAH."
  64. 520  FOR D = 1 TO 550: NEXT D
  65. 530  VTAB 10: PRINT "SIS"
  66. 540  FOR D = 1 TO 10: NEXT D
  67. 550  VTAB 10: HTAB 4: PRINT "TER"
  68. 560  FOR D = 1 TO 100: NEXT D
  69. 570  VTAB 10: HTAB 8: PRINT "HELP"
  70. 580  FOR D = 1 TO 500: NEXT D
  71. 590  VTAB 10: HTAB 13: PRINT "TO TRIM"
  72. 600  FOR D = 1 TO 60: NEXT D
  73. 610  VTAB 10: HTAB 21: PRINT "THE"
  74. 620  FOR D = 1 TO 20: NEXT D
  75. 630  VTAB 10: HTAB 25: PRINT "SAILS,"
  76. 640  FOR D = 1 TO 700: NEXT D
  77. 650  VTAB 12: PRINT "HAL"
  78. 660  FOR D = 1 TO 300: NEXT D
  79. 670  VTAB 12: HTAB 4: PRINT "LE"
  80. 680  FOR D = 1 TO 100: NEXT D
  81. 690  VTAB 12: HTAB 6: PRINT "LU"
  82. 700  FOR D = 1 TO 1200: NEXT D
  83. 710  VTAB 12: HTAB 8: PRINT "YAH."
  84. 720  FOR D = 1 TO 650: NEXT D
  85. 730  VTAB 14: PRINT "SIS"
  86. 740  FOR D = 1 TO 10: NEXT D
  87. 750  VTAB 14: HTAB 4: PRINT "TER"
  88. 760  FOR D = 1 TO 100: NEXT D
  89. 770  VTAB 14: HTAB 8: PRINT "HELP"
  90. 780  FOR D = 1 TO 500: NEXT D
  91. 790  VTAB 14: HTAB 13: PRINT "TO TRIM"
  92. 800  FOR D = 1 TO 60: NEXT D
  93. 810  VTAB 14: HTAB 21: PRINT "THE"
  94. 820  FOR D = 1 TO 20: NEXT D
  95. 830  VTAB 14: HTAB 25: PRINT "SAILS,"
  96. 840  FOR D = 1 TO 650: NEXT D
  97. 850  VTAB 16: PRINT "HAL"
  98. 860  FOR D = 1 TO 300: NEXT D
  99. 870  VTAB 16: HTAB 4: PRINT "LE"
  100. 880  FOR D = 1 TO 100: NEXT D
  101. 890  VTAB 16: HTAB 6: PRINT "LU"
  102. 900  FOR D = 1 TO 1400: NEXT D
  103. 910  VTAB 16: HTAB 8: PRINT "YAH."
  104. 920  FOR D = 1 TO 330: NEXT D
  105. 930  HOME 
  106. 940  FOR D = 1 TO 430: NEXT D
  107. 950  VTAB 2: PRINT "MI"
  108. 960  FOR D = 1 TO 10: NEXT D
  109. 970  VTAB 2: HTAB 3: PRINT "CHAEL"
  110. 980  FOR D = 1 TO 100: NEXT D
  111. 990  VTAB 2: HTAB 9: PRINT "ROW"
  112. 1000  FOR D = 1 TO 500: NEXT D
  113. 1010  VTAB 2: HTAB 13: PRINT "THE BOAT"
  114. 1020  FOR D = 1 TO 60: NEXT D
  115. 1030  VTAB 2: HTAB 22: PRINT "A"
  116. 1040  FOR D = 1 TO 70: NEXT D
  117. 1050  VTAB 2: HTAB 23: PRINT "SHORE,"
  118. 1060  FOR D = 1 TO 750: NEXT D
  119. 1070  VTAB 4: PRINT "HAL"
  120. 1080  FOR D = 1 TO 300: NEXT D
  121. 1090  VTAB 4: HTAB 4: PRINT "LE"
  122. 1100  FOR D = 1 TO 100: NEXT D
  123. 1110  VTAB 4: HTAB 6: PRINT "LU"
  124. 1120  FOR D = 1 TO 1200: NEXT D
  125. 1130  VTAB 4: HTAB 8: PRINT "YAH."
  126. 1140  FOR D = 1 TO 650: NEXT D
  127. 1150  VTAB 6: PRINT "MI"
  128. 1160  FOR D = 1 TO 10: NEXT D
  129. 1170  VTAB 6: HTAB 3: PRINT "CHAEL"
  130. 1180  FOR D = 1 TO 80: NEXT D
  131. 1190  VTAB 6: HTAB 9: PRINT "ROW"
  132. 1200  FOR D = 1 TO 500: NEXT D
  133. 1210  VTAB 6: HTAB 13: PRINT "THE BOAT"
  134. 1220  FOR D = 1 TO 60: NEXT D
  135. 1230  VTAB 6: HTAB 22: PRINT "A"
  136. 1240  FOR D = 1 TO 70: NEXT D
  137. 1250  VTAB 6: HTAB 23: PRINT "SHORE,"
  138. 1260  FOR D = 1 TO 700: NEXT D
  139. 1270  VTAB 8: PRINT "HAL"
  140. 1280  FOR D = 1 TO 300: NEXT D
  141. 1290  VTAB 8: HTAB 4: PRINT "LE"
  142. 1300  FOR D = 1 TO 100: NEXT D
  143. 1310  VTAB 8: HTAB 6: PRINT "LU"
  144. 1320  FOR D = 1 TO 1500: NEXT D
  145. 1330  VTAB 8: HTAB 8: PRINT "YAH."
  146. 1340  FOR D = 1 TO 490: NEXT D
  147. 1350  VTAB 10: PRINT "THE RIVER"
  148. 1360  FOR D = 1 TO 40: NEXT D
  149. 1370  VTAB 10: HTAB 11: PRINT "IS"
  150. 1380  FOR D = 1 TO 40: NEXT D
  151. 1390  VTAB 10: HTAB 14: PRINT "DEEP"
  152. 1400  FOR D = 1 TO 150: NEXT D
  153. 1410  VTAB 10: HTAB 19: PRINT "AND THE"
  154. 1420  FOR D = 1 TO 50: NEXT D
  155. 1430  VTAB 10: HTAB 27: PRINT "RIVER"
  156. 1440  FOR D = 1 TO 40: NEXT D
  157. 1450  VTAB 10: HTAB 33: PRINT "IS WIDE,"
  158. 1460  FOR D = 1 TO 630: NEXT D
  159. 1470  VTAB 12: PRINT "HAL"
  160. 1480  FOR D = 1 TO 300: NEXT D
  161. 1490  VTAB 12: HTAB 4: PRINT "LE"
  162. 1500  FOR D = 1 TO 100: NEXT D
  163. 1510  VTAB 12: HTAB 6: PRINT "LU"
  164. 1520  FOR D = 1 TO 1300: NEXT D
  165. 1530  VTAB 12: HTAB 8: PRINT "YAH."
  166. 1540  FOR D = 1 TO 520: NEXT D
  167. 1560  VTAB 14: PRINT "THE RIVER"
  168. 1570  FOR D = 1 TO 40: NEXT D
  169. 1580  VTAB 14: HTAB 11: PRINT "IS"
  170. 1590  FOR D = 1 TO 40: NEXT D
  171. 1600  VTAB 14: HTAB 14: PRINT "DEEP"
  172. 1610  FOR D = 1 TO 150: NEXT D
  173. 1620  VTAB 14: HTAB 19: PRINT "AND THE"
  174. 1630  FOR D = 1 TO 50: NEXT D
  175. 1640  VTAB 14: HTAB 27: PRINT "RIVER"
  176. 1650  FOR D = 1 TO 40: NEXT D
  177. 1660  VTAB 14: HTAB 33: PRINT "IS WIDE,"
  178. 1670  FOR D = 1 TO 580: NEXT D
  179. 1680  VTAB 16: PRINT "HAL"
  180. 1690  FOR D = 1 TO 300: NEXT D
  181. 1700  VTAB 16: HTAB 4: PRINT "LE"
  182. 1710  FOR D = 1 TO 100: NEXT D
  183. 1720  VTAB 16: HTAB 6: PRINT "LU"
  184. 1730  FOR D = 1 TO 1600: NEXT D
  185. 1740  VTAB 16: HTAB 8: PRINT "YAH."
  186. 1750  FOR D = 1 TO 200: NEXT D
  187. 1760  HOME 
  188. 1770  FOR D = 1 TO 200: NEXT D
  189. 1780  VTAB 2: PRINT "MI"
  190. 1790  FOR D = 1 TO 10: NEXT D
  191. 1800  VTAB 2: HTAB 3: PRINT "CHAEL"
  192. 1810  FOR D = 1 TO 100: NEXT D
  193. 1820  VTAB 2: HTAB 9: PRINT "ROW"
  194. 1830  FOR D = 1 TO 500: NEXT D
  195. 1840  VTAB 2: HTAB 13: PRINT "THE BOAT"
  196. 1850  FOR D = 1 TO 60: NEXT D
  197. 1860  VTAB 2: HTAB 22: PRINT "A"
  198. 1870  FOR D = 1 TO 70: NEXT D
  199. 1880  VTAB 2: HTAB 23: PRINT "SHORE,"
  200. 1890  FOR D = 1 TO 700: NEXT D
  201. 1900  VTAB 4: PRINT "HAL"
  202. 1910  FOR D = 1 TO 300: NEXT D
  203. 1920  VTAB 4: HTAB 4: PRINT "LE"
  204. 1930  FOR D = 1 TO 100: NEXT D
  205. 1940  VTAB 4: HTAB 6: PRINT "LU"
  206. 1950  FOR D = 1 TO 1300: NEXT D
  207. 1960  VTAB 4: HTAB 8: PRINT "YAH."
  208. 1970  FOR D = 1 TO 550: NEXT D
  209. 1980  VTAB 6: PRINT "MI"
  210. 1990  FOR D = 1 TO 10: NEXT D
  211. 2000  VTAB 6: HTAB 3: PRINT "CHAEL"
  212. 2010  FOR D = 1 TO 80: NEXT D
  213. 2020  VTAB 6: HTAB 9: PRINT "ROW"
  214. 2030  FOR D = 1 TO 500: NEXT D
  215. 2040  VTAB 6: HTAB 13: PRINT "THE BOAT"
  216. 2050  FOR D = 1 TO 60: NEXT D
  217. 2060  VTAB 6: HTAB 22: PRINT "A"
  218. 2070  FOR D = 1 TO 70: NEXT D
  219. 2080  VTAB 6: HTAB 23: PRINT "SHORE,"
  220. 2090  FOR D = 1 TO 650: NEXT D
  221. 2100  VTAB 8: PRINT "HAL"
  222. 2110  FOR D = 1 TO 300: NEXT D
  223. 2120  VTAB 8: HTAB 4: PRINT "LE"
  224. 2130  FOR D = 1 TO 100: NEXT D
  225. 2140  VTAB 8: HTAB 6: PRINT "LU"
  226. 2150  FOR D = 1 TO 1600: NEXT D
  227. 2160  VTAB 8: HTAB 8: PRINT "YAH."
  228. 2170  FOR D = 1 TO 550: NEXT D
  229. 2180  VTAB 10: PRINT "MI"
  230. 2190  FOR D = 1 TO 10: NEXT D
  231. 2200  VTAB 10: HTAB 3: PRINT "CHAEL"
  232. 2210  FOR D = 1 TO 100: NEXT D
  233. 2220  VTAB 10: HTAB 9: PRINT "ROW"
  234. 2230  FOR D = 1 TO 500: NEXT D
  235. 2240  VTAB 10: HTAB 13: PRINT "THE BOAT"
  236. 2250  FOR D = 1 TO 60: NEXT D
  237. 2260  VTAB 10: HTAB 22: PRINT "A"
  238. 2270  FOR D = 1 TO 70: NEXT D
  239. 2280  VTAB 10: HTAB 23: PRINT "SHORE,"
  240. 2290  FOR D = 1 TO 750: NEXT D
  241. 2300  VTAB 12: PRINT "HAL"
  242. 2310  FOR D = 1 TO 300: NEXT D
  243. 2320  VTAB 12: HTAB 4: PRINT "LE"
  244. 2330  FOR D = 1 TO 100: NEXT D
  245. 2340  VTAB 12: HTAB 6: PRINT "LU"
  246. 2350  FOR D = 1 TO 1300: NEXT D
  247. 2360  VTAB 12: HTAB 8: PRINT "YAH."
  248. 2370  FOR D = 1 TO 650: NEXT D
  249. 2380  VTAB 14: PRINT "MI"
  250. 2390  FOR D = 1 TO 10: NEXT D
  251. 2400  VTAB 14: HTAB 3: PRINT "CHAEL"
  252. 2410  FOR D = 1 TO 80: NEXT D
  253. 2420  VTAB 14: HTAB 9: PRINT "ROW"
  254. 2430  FOR D = 1 TO 500: NEXT D
  255. 2440  VTAB 14: HTAB 13: PRINT "THE BOAT"
  256. 2450  FOR D = 1 TO 60: NEXT D
  257. 2460  VTAB 14: HTAB 22: PRINT "A"
  258. 2470  FOR D = 1 TO 70: NEXT D
  259. 2480  VTAB 14: HTAB 23: PRINT "SHORE,"
  260. 2490  FOR D = 1 TO 640: NEXT D
  261. 2500  VTAB 16: PRINT "HAL"
  262. 2510  FOR D = 1 TO 300: NEXT D
  263. 2520  VTAB 16: HTAB 4: PRINT "LE"
  264. 2530  FOR D = 1 TO 100: NEXT D
  265. 2540  VTAB 16: HTAB 6: PRINT "LU"
  266. 2550  FOR D = 1 TO 1600: NEXT D
  267. 2560  VTAB 16: HTAB 8: PRINT "YAH."
  268. 2570  FOR D = 1 TO 3000: NEXT D
  269. 2580  HOME 
  270. 2590  FOR D = 1 TO 50: NEXT D
  271. 2600  VTAB 12: PRINT "(C) COPYRIGHT JAN. 1987   PHIL SHAPIRO"
  272. 2610  FOR D = 1 TO 4000: NEXT D
  273. 2620  HOME 
  274. 2630  END